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**F ILE**1De*INITBUS 
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rf-eo~1964 00:08:56 VAXeT1 FORTRAN V5.4-56 Page 


Subroutine ERFBUSINI ( Array addr, Array_size ) 


| 
Version: *v04-000' 
SHSASKSASAASASASRASHAEAAARAAAAAAAAAAAAAAAAAEAETEAEEAEAAAAEAAARAAAAEAAAAAAEARAREAAAEE | 


Seth fg! (c) 1978, 1980, 1982, 1984 B 


DIGITAL EQUIPMENT CORPORATION, “MAYNARD. MASSACHUSETTS. 


ALL RIGHTS JRESERVED. 


* 
5 
i e 
5 ® 
a ® 
+t ® 
* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* OTHER PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
* TRANSFERRED. ’ 
* ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
= CORPORATI : 
* * 
a ® 
& ® 
< ® 
* ® 
* ae 


ere ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


SHAKES AAAAAAAAAAAAEAAAEEAAAAAAAAAAAAAAAAREAAAEARAEAAAAAAAERAAAAAAAAAAEKEKEEE 


Modified by: 


v03-002 SARO238 Sharon A. Reynolds 28-Mar-1984 
Added KMS3271 support. 


v03-001 SARO207 Sharon A. Reynolds 11-Mar-1984 
Added the UDASOA and TU81P. 
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Parameter DC$_BUS = a '4'44'4 4 
Parameter DC$_SCOM = '00000020'x 


' 
é BUS CLASS DEVICES 
AMETER prs _c178 e* 1°x ! C17 

PARAMETER 35 AY s ° "x ' C17 

PARAMETER DT$_UDA A * *x ' UDA 
5 PARAMETER BIB _UDAIOA 3°x ' UDASOA 
; AMETER DT -tESt x : nity 

PARAMETER DT$_ B "x ' TuUs8iP 
2 PARAMETER DT$_RDRX ¢ “10 x ' RDRX 
5 PARAMETER DT$_XK 3271, s* 8 *x ' DPUP-11 FOR ser PROTOCOL EMULATOR 
5 PARAMETER DT$_SB_ 435)" 7°x !' JSB-11 DEC dataway 
5 Parameter DT$_YQ_5271 = “19 12°x ' «MS3271 
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ERFBUSINI 16-Sep-1984 703: VAX=-11 FORTRAN V3.4-56 Page 2) 
$7 900- 1382 99:95:98 DI SKSVMSMASTER: CERF .SRCIINITBUS.FOR: 1 ° 
Parameter V1 = 1 ! device module version number 
Parameter Maxtypes = 10 
Integer*2 Bus_codes ( 4 * Maxtypes ) 


The following table consist of: 
DEVICE TYPE, DEVICE CLASS, MODULE VERSION, TRANSFER VECTOR OFFSET 


The MODULE VERSION is used to determine if the module in this image 
is the one to use. This is accomplished the root image comparing 
this value against the value in the master tables in the root image. 


The TRANSFER VECTOR OFFSET is the index to the transfer vector to 
be used for a specific device type. For example, the transfer 
wooter, I ee image are ordered as: 


esses 
NOUS wr 
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| 
Integer*4 Array addr, Array size 


8 ITDIS 
sito 4 SSDISK 1 
RKDISK 
sa pep 
0083 
0084 Data Bus_codes / 
0085 1 pts.C1780. DC$_BUS, Vi, 1. ! C1780 
Boas § DT$_C1750, DC$_BUS, Vi, g. ! C1750 
oie $4 DT$_UDA5SO, DC$_BUS, V1, 3, ! UDASO 
4 DT$_UDASOA, ODC$_BUS, V1. 3, ! UDASOA 
i994 5 DT$_TUsiP, DC$_BUS, V1, 3, ! TUB8IP 
; DT$_LESI, DC$_BUS, V1, 3. ! LESI 
ad DTS_RORX, DC$_BUS, V1, 3, ! RDRX 
$098 The following two entries should be in a module for sync. communications 
0094 devices. But since only these two devices log errors, it was frugal 
0095 to create a loadable image just for them. 
0097 DT$_XK_3271, DC$_SCOM, V1, 4, ! DUP-11 FOR 3271 PROTOCOL EMULATOR 
0098 bs sB-jse1f . 0cS_ScOM, vi, 5.) ISB-11 DEC dataway 
8 DT$_vQ"3271, DC$_SCOM, V1, 6/ ! KMS3271 


Array addr = ZLOC (Bus_codes(1)) 
Array_size = Maxtypes 
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End 
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ERFBUSINI 


PROGRAF SECTIONS 
hame 


2 SOCAL 


Total Space Allocated 


ENTRY POINTS 
Address Type 
0-00090000 


VARIABLES 
Address Type 
AP-()0000004a 1*4 


ARRAYS 
Address Type 
2-00000000 I*2 


Name 
ERFBUSINI 


Name 
ARRAY_ADDR 


Name 
BUS_CODES 


Bytes Attributes 


19 PIC CON REL 
80 PIC CON REL 


99 


Address Type Name 
AP=00000008@ i*4 ARRAY_SIZE 


Bytes Dimensions 
80 (40) 


LCL 
LCL 


if 


SH 
NOSH 


p=19be 19:57:48 


R 
R NO 


VAX- 
DISK 


RD NOWRT LONG 


WRT LONG 


FO 


11 FORTRAN y3.4-56 " 
SVMSMASTER: TERE SRCJINITBUS.FOR:I°o” 


if: Se0- 1984 99:03:73 MScbinshasten: PRE. Stcainireus.FoRs1 9” 


0001 


COMMAND QUALIFIERS 
FORTRAN /LIS=L1S$: INI TBUS/OBJ=08J$: INITBUS MSRC$:INITBUS 
ECE mm 


X ,NOSOURCE FORM) 
/SHOW= (NOPREPROCESSOR ,NOINCLUDE ,MA 
/F77 /NOG_FLOATING 714 SHPTIAIIE. /WARNINGS /NOD_LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


Run Time: 9-80 seconds 
Elapsed Time: seconds 
Page Faults: 85 

Dynamic Memory: 155 pages 
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